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68 News Asked to Stop Publishing 

Just about the time we mailed out the previous issue of 68 News, we learned 
that a new "68" magazine has been formed. It seems that this past summer, when 
we fell a few months behind schedule, some of our good friends took that to 
mean that 68 News was dead. And so they decided to start another newsletter, 
tentatively called The 68xxx Machines. We have now been asked to stop 
publishing 68 News, send The 68xxx Machines our subscription list, transfer our 
subscribers to them, and send them our articles and ads to be published there. 

The 68xxx Machines will be a bit different from 68 News. While their per-issue 
subscription rates will be somewhat lower than ours ($1 per issue for them, vs. 
$1.67 per issue for us), their ad rates are generally much higher ($75 for a half 
page in The 68xxx Machines vs. $10 for a half page in 68 News). To get the 
advertisers to help pay for the costs, The 68xxx Machines will have to cover a 
hardware and software from many vendors. In other words, The 68xxx Machines 
would cover not just SK*DOS, but also perhaps OS-9, or Minix (a Unix clone) 
, as well as other hardware and software. The idea is to form a common magazine, 
replacing the many newsletters that individual vendors now send out themselves. 

On the surface, I think this is a fine idea. The 68xxx world is small, and bringing 
it together under one roof can be beneficial to all. But I have several reservations. 

When a magazine has to cover many different systems, the space devoted to 
any one has to be limited. There just may not be enough room for the material 
any one of us wants to see, and there may be much that we have no interest in. 

Second, on a long-term basis, a magazine that relies heavily on advertisers 
must of necessity follow the majority of its readers. For example, some of the 
people involved with setting up the magazine are heavily into the Radio Shack 
Color Computer (CoCo). Since there are so many more CoCos than almost 
anything else, the magazine might turn into a CoCo magazine, for all I know. 

I have seen cases where one vendor or group managed to take over a magazine 
and effectively downplay or even exclude other points of view. Whether it was 
preferential treatment from the publisher, or just a simple matter of one prolific 
vendor flooding the magazine with news releases, ads, articles, and photos, the 
ultimate effect is the same — a stilted, one-sided, unfair magazine. For example, 
I remember one vendor who wrote a monthly column (and even gave talks at 
meetings organized by the magazine), which turned out to plug all his own 
products and ignore everyone else's. It was designed to look impartial, but was 
in fact a free advertisement which made it look as though the magazine supported 
his products above those of other advertisers. I have no indication that this will 
happen with The 68xxx Machines, but I am afraid that it might. 

As a result, I have decided to go with The 68xxx Machines^ suggestion on a 
trial basis. If the first issue comes out in January as expected, then you will 
receive an issue of The 68xxx Machines instead of 68 News. Beyond that, things 
are less certain. I suspect that the ultimate solution may be to substitute The 
68xxx Machines on an issue-for-issue basis, but still come out with an occasional 
issue of 68 News to cover material which may not be appropriate for The 68xxx 
Machines, or for which they may simply not have room. 

Let me know what you think. 
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Single-Drive Backup Program 

by Mike Herman 

Here is a useful program for those of us running SK*DOS on a system with 
just one floppy drive and too little memory for a RAMdisk. It is a backup 
program which allows making a copy of an entire disk on just one floppy drive. 
It copies as much of the disk into memory as fits, asks you to insert the destination 
disk, and copies the data out to the disk. If the memory is not large enough, then 
it asks you to swap disks several times, until the entire disk is copied. 

* SDBACKUP - SINGLE DRIVE BACKUP FOR SK*DOS 68000 
* 

* ORIGINAL BY MIKE HERMAN, 9/90 

* MODIFIED AND EXPANDED BY PETE STARK 11/17/90 

* TO SAVE SPACE , WRITTEN FOR 256-BYTE SECTORS. IF SECTOR LENGTH 

* IS CHANGED TO 512, CHANGE 352 TO 608 IN TWO PLACES BELOW 



LIB 



ORG 



SKEQUATE 
$0000 



LIBRARY FILE 



START ADDR + OFFSET 



SDBACKUP BRA.S 
DC.W 



START 
$0100 



GOTO START 
VERSION NUMBER 



START 



LEA 

DC 

DC 

SUB.B 
CMP.B 
BHI.L 



MSGl(PC) ,A4 

PSTRNG 

GETNXT 

#$30, D5 

MAXDRV(A6),D5 

HELP 



POINT TO INIT MESSAGE 
GO PRINT 

READ DRIVE NUMBER 
CONVERT FROM ASCII 
CHECK IF VALID DRIVE 
ON ERR XFER 



* SET UP REGISTERS TO GO AHEAD 



MOVE.L 


D5,D0 


SAVE DRIVE NUMBER 


MOVE.L 


A6,A4 


POINT A4 TO USRFCB 


MOVE.B 


D5,FCBDRV(A4) 


INSERT DRIVE No INTO FCB 


MOVE.W 


#$0003,FCBCTR(A4) 


INSERT TR 0 SECT 3 


DC 


SREAD 


READ SIS 


BNE.L 


ERROR 




CLR.L 


Dl 




MOVE.W 


FCBDAT+38(A4) ,Dl 


Dl=LAST TRACK/SECT 


MOVE.L 


MEMEND(A6) ,A0 




SUB . L 


#610, AO 


AO = END OF BUFFER 


CLR.L 


D2 




MOVE.B 


FCBPHYCA4) ,D7 


CHECK IF FLOPPY 


AND.B 


#$F0,D7 




CMP.B 


#$10, D7 




BNE.L 


NOT FLO 


EXIT IF NOT FLOPPY 



* REGISTER USAGE: 

* D0=DRIVE NUMBER D1.W=LAST TRACK/SEC ON DISK 

* D2.W=LAST TRK/SEC READ D3=READ FLAG D4=EOF FLAG 

* AO = END OF BUFFER A1=LAST BUFFER USED 
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* READ SECTOR DATA 



READ 
"WRITE 



READY 



CLR.L 

CLR.L 
LEA 
DC 
DC 

LEA 



D3 
D4 

ASKSRC(PC) ,A4 

PSTRNG 

GETCH 

FCBUFF(PC) ,A4 



CLEAR FLAG: NOTHING TO 

ALSO EOF FLAG 

ASK FOR SOURCE DISK 

GO PRINT 

READ INPUT OF CR WHEN 
POINT TO BUFFER BEGINNING 



RLOOP 



DATE 
SECTOR 



WRITE 



ADD.B 

CMP.B 

BLS.S 

ADD. W 

MOVE.B 

CMP.W 

BLS.S 

MOVE.B 

BRA. S 



MOVE.B 
MOVE.W 
DC 

BNE.L 
MOVE.B 

ADD. L 
CMP.L 
BHI.S 



#1,D2 

Dl,D2 

SECTOR 

#$0100, D2 

#1,D2 

Dl,D2 

SECTOR 

#$1,D4 

WRITE 



D0,FCBDRV(A4) 

D2 , FCBCTR ( A4 ) 

SREAD 

ERROR 

#1,D3 



#352,A4 

A4 # A0 

RLOOP 



NEXT SECTOR 

TIME TO GO TO NEXT TRACK? 
NO 

YES, NEXT TRACK 
AND SECTOR 1 
PAST END OF DISK? 
NO 

YES, SET EOF FLAG 

AND GO WRITE OUT ALL TO 



PUT DRV NO INTO FCB 

AND TRACK/ SECTOR 

READ SECTOR INTO BUFFER 

EXIT ON ERROR 

SET FLAG: SOMETHING TO 

NEXT BUFFER AREA 
AT END OF BUFFER? 
NO, CONTINUE 



WRITE SECTOR DATA 



WRITE 



READY 



TST . B 

BEQ.S 

MOVE.L 

LEA 

DC 

DC 

LEA 



D3 

DONE 
A4,A1 

ASKDES(PC) ,A4 

PSTRNG 

GETCH 

FCBUFF(PC) ,A4 



ANYTHING TO WRITE? 
NO, SO EXIT 

SAVE LAST BUFFER ADDRESS 
ASK FOR DESTINATION DISK 
GO PRINT 

READ INPUT OF CR WHEN 
POINT TO BUFFER BEGINNING 



WLOOP 



CMP.L 
BNE.S 
TST.B 
BEQ.S 
BRA.S 



A4,A1 

WRITIT 

D4 

READ 
DONE 



AT END OF BUFFER? 
NO, SO WRITE IT 
CHECK EOF FLAG 
READ MORE IF NOT EOF 
ELSE QUIT 



WRITIT 



DC 

BNE.S 
ADD. L 
BRA.S 



SWRITE 
ERROR 
#352, A4 
WLOOP 



ELSE GO WRITE THE SECTOR 
ERROR OUT 

THEN GO TO NEXT BUFFER 
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* ALL DONE 



DONE 


DC 


WARMST RETURN TO SK*DOS 


* ERRORS 
* 


AND MESSAGES 


HELP 


LEA 


HLPMSO ( PC ),A4 




DC 


PSTRNG 




DC 


WARMST 


HLPMSO 


DC.B 


"SDBACKUP is a single-drive floppy disk 






backup utility." 




DC.B 


$D,$A 




DC.B 


"The correct syntax is SDBACKUP ",$04 


ERROR 


DC 


PCRLF 




MOVE.B 


#$07, D4 BEEP 




DC 


PUTCH 




DC 


PERROR 




DC 


WARMST 


NOTFLO 


DC 


PCRLF 




LEA 


NTFMSO (PC) ,A4 




DC 


PSTRNG 




DC 


WARMST 


MSOl 


DC.B 


"SINGLE DRIVE BACKUP ",$04 


ASKSRC 


DC.B 


"Insert source disk...CR when ready ",$04 


ASKDES 


DC.B 


"Insert destination disk. ..CR when ready ",$04 


NTFMSO 
* 


DC.B 


"Specified drive is not a floppy disk.", 4 




EVEN 




FCBUFF 


DS.B 


1 BEGINNING OF BUFFER 




END 


SDBACKUP 



Beginner's Corner 

by Ron Anderson 

I guess we ought to change the name of this to Assembler Corner, at least 
for the time being. Rather than forge on ahead very quickly into files and file 
handling, I thought perhaps we ought to spend a little more time on our program 
to add numbers. First, let's start with the program from last month and fix a 
deficiency. DECIN, as you will recall, won't accept negative numbers. Let's 
fix that problem by modifying our subroutine GETSTR. Since that routine is 
going to get more specific, I am going to rename it GETNUM. We'll fix it so 
that it looks to see if the first character it sees is a If so, we'll tuck away that 
information and not put the minus sign in STRBUF. Then later, when we return 
from DECIN, we will check whether the value is negative and NEGATE the 
number if that is the case. It is easier to do than to describe in words. 

Program ADD4 meets these requirements and brings up an example of 
something I mentioned previously but didn't explain at the time. I said that the 
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designers of the 68000 had placed a limitation on programmers. If a variable is 
tucked away along with the program access to it is limited. Look at the ADD4 
listing below. The variable SIGN is declared at the end of the program. I can 
do this: 

MOVE.B SIGN(PC),D0 

but the following is illegal: 

MOVE.B D0,SIGN(PC) 

PC relative addressing can be used to read the value in a variable, but not to 
write a value to the variable. Instead we must go through two steps to use another 
addressing mode (We haven't formally talked about addressing modes yet). 

LEA SIGN (PC) , AO 
MOVE.B DO, (AO) 

This method will always work for writing to a memory location. Now Fll 
include the listing of ADD4. I've started with a fresh uncommented version and 
only commented the changes. 

* ADD TWO NUMBERS INPUT BY USER 

NAM ADD4 
* EQUATES 

VPOINT EQU $A000 
WARMST EQU $A01E 
PSTRNO EQU $A035 
PCRLF EQU $A034 
OUT5D EQU $A038 
DECIN EQU $A030 
GETCH EQU $A029 
LPOINT EQU 758 

START DC VPOINT 
MOVE. I* A6,A0 
LEA MSGl(PC) ,A4 
DC PSTRNG 

BSR.S GETNUM CHANGED SUBROUTINE 
LEA STRBUP(PC) ,A1 
MOVE.L Al, LPOINT (AO) 
DC DECIN 

MOVE.B SIGN(PC),D1 GET THE NEGATIVE SIGN FLAG 
BEQ.S ADD1 IF ZERO, NOT NEGATIVE 
NEG.W D5 OTHERWISE NEGATE THE NUMBER 
ADD1 MOVE.W D5,D0 
LEA MSG2(PC) ,A4 
DC PSTRNG 
BSR.S GETNUM 
LEA STRBUF(PC) ,Al 
MOVE.L Al, LPOINT (AO) 
DC DECIN 

MOVE.B SIGN(PC),D1 SAME COMMENT AS ABOVE 
BEQ.S ADD2 
NEG.W D5 
ADD2 ADD. W D5,D0 
LEA MSG3 (PC) ,A4 
DC PSTRNG 
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CLR.L D5 
MOVE.W D0,D4 
DC OUT5D 
DC WARMST 

* OBTNUM SUBROUTINE 
OBTNUM LBA STRBUF ( PC ) , Al 

LBA SIGN(PC),A2 POINT AT SIGN VARIABLE 
CLR.B (A2) SBT SIGN FALSE 
GBT1 DC GBTCB 
CMP.B #'-',D5 SBB IF FIRST CHARACTER IS MINUS SIGN 
BNB.S GET 2 IF NOT, ALL IS OK 

MOVE.B #$FF,(A2) IF SO, SBT SIGN FLAG NON-ZERO 

BRA.S GET1 DON'T PUT IN BUFFER 

GET 2 CMP.B #$20, D5 FROM HERB ON THERE ARB NO CHANGES. 

BBQ.S DONGBT 

CMP.B #$0D,D5 

BBQ.S DONGBT 

MOVE.B D5, (Al)+ 

BRA.S GET1 
DONGBT MOVE.B #$0D, (Al) 

RTS 

MSG1 DC.B "INPUT FIRST NUMBER ",$04 
MSG2 DC.B "INPUT SECOND NUMBER ",$04 
MSG3 DC.B "SUM ISt ",$04 
SIGN DC.B 1 
STRBUF DS.B 30 

END START 

Our program is growing. Note near the beginning of the program we have 
used MOVE.B SIGN(PC),D1. That instruction is followed by a BEQ.S. We 
haven't talked about the condition code register yet, but let me just say that 
simply moving a value to a data register causes the value to be tested and some 
condition codes set. The test for zero is done automatically and the condition 
code register ZERO FLAG is set appropriately so that the BEQ (branch if an 
equality test results in a zero value) works after simply moving the value to a 
register. 

You might be thinking that we have done a lot of manipulation to get our 
"flag" set and cleared and stored away in the SIGN variable. You are absolutely 
correct. Since I've use Dl in the process, why not eliminate the variable SIGN 
and simply keep track of it in Dl. Listing ADDS follows, and it does just that. 

* ADD TWO NUMBERS INPUT BY USER 
NAM ADD5 

* EQUATES 

VPOINT BQU $A000 
WARMST BQU $A01B 
PSTRNG BQU $A035 
PCRLF BQU $A034 
OUT5D BQU $A038 
DECIN EQU $A030 
GBTCH EQU $A029 
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LPOINT BQU 750 

START DC VPOINT 
MOVB.L A6,A0 
LEA MSOl ( PC ) , A4 
DC PSTRNG 
BSR.S OETNUM 
LEA STRBUF < PC ),A1 
MOVB.L Al,LPOINT(A0) 
DC DECIN 

TST.B Dl IF HOT ZERO, SIGN IS NEGATIVE 
BEQ.S ADD1 

NEG.W D5 NEGATE NUMBER IP NEGATIVE FLAG 
ADD1 MOVE.W D5,D0 

LEA MSG2(PC),A4 

DC PSTRNG 

BSR.S GETNUM 

LEA STRBUF (PC), Al 

MOVB.L Al, LPOINT (AO) 

DC DECIN 

TST.B Dl 

BEQ.S ADD2 

NEG.W D5 
ADD2 ADD.W D5,D0 

LEA MSG3(PC),A4 

DC PSTRNG 

CLR.L D5 

MOVE.W D0,D4 

DC OUT5D 

DC WARMST 

* GETNUM SUBROUTINE 
GETNUM LEA STRBUF (PC) , Al 

CLR.B Dl SET SIGN FALSE OR POSITIVE 
GBT1 DC GBTCH 

CMP.B #'-',D5 

BNB.S GET2 

MOVB.B #$FF / D1 SET SIGN NEGATIVE 

BRA.S GBT1 DON'T PUT "-" IN BUFFER 
GET2 CMP.B #$20, D5 

BEQ.S DONGBT 

CMP.B #$0D,D5 

BEQ.S DONGBT 

MOVB.B D5, (Al) + 

BRA.S GET1 
DONGBT MOVB.B #$0D, (Al) 

RTS 

MSG1 DC.B "INPUT FIRST NUMBER ",$04 
MSG2 DC.B "INPUT SECOND NUMBER ",$04 
MSG3 DC.B "SUM ISs ",$04 
STRBUF DS.B 30 



END START 



November 1990 



9 



Obviously the new version is simpler and has fewer instructions. Maybe 
not quite so obviously it is not as easy to follow for anyone but the author. A 
comment line: 

* Dl is used to keep track of the sign of the input value 

would surely help clarify the program. In fact, at the beginning of the main 
program and at the start of any subroutine, it would be a good idea to document 
the register usage. This is sometimes of great value in debugging a complex 
program. You can more easily find that you have used a register in a subroutine 
that was holding something important in the main program or a higher level 
subroutine. 

Now that we have a program that will accept negative values, how about one 
more improvement. Let's make it so that it will accept numbers until you enter 
a zero and then print the total. Numbers may be positive or negative. The 
negative numbers are to be identified by preceding them with a "-" just as we 
have done so far. The only difference will be to change the prompts from "Enter 
First Number" and "Enter Second Number" to "Enter Number". We will do an 
unconditional branch back to get another number and add it until the number is 
zero and then we will print the total and exit. It will be smaller than our previous 
program: 

* ADD NUMBERS INPUT BY USER UNTIL ZERO IS INPUT 
NAM ADD6 

* EQUATES 

VPOINT EQU $A000 
WARMST EQU $A01E 
PSTRNO EQU $A035 
PCRLF EQU $A034 
OUT5D EQU $A038 
DECIN EQU $A030 
GETCH EQU $A029 
LPOINT EQU 758 

START DC VPOINT GET POINTER TO SK*DOS VARIABLES 

MOVE.L A6,A0 SAVE POINTER TO VARIABLES 

CLR.W DO TO HOLD SUM OF ENTRIES 
ADDO LEA MSGl(PC),A4 

DC PSTRNG 

BSR.S GETNUM 

LEA STRBUF(PC) ,A1 

MOVE.L Al, LPOINT (AO) 

DC DECIN 

TST.B Dl IF NOT ZERO, SIGN IS NEGATIVE 
BEQ.S ADD1 
NEG.W D5 
ADD1 ADD.W D5,D0 
CMP.W #0,D5 

BNE.S ADDO IF NOT ZERO GO GET MORE 
LEA MSG3(PC) ,A4 
DC PSTRNG 
CLR.L D5 
MOVB.W D0,D4 
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DC OUT5D 
DC WARMST 

* GETNUM SUBROUTINE 
GETNUM LEA STRBUF < PC ) , Al 

CLR.B Dl SET SIGN FALSE OR POSITIVE 
OET1 DC GETCH 

CMP.B #'-',D5 

BNE.S GET2 

MOVE.B #$FF,D1 SET SIGN NEGATIVE 

BRA. S GET1 DON'T PUT - IN BUFFER 
GET2 CMP.B #$20, D5 

BEQ.S DONGET 

CMP.B #$00/05 

BEQ.S DONGET 

MOVE.B D5, (Al)+ 

BRA. S GET1 
DONGET MOVE.B #$0D, (Al) 

RTS 

MSGl DC.B "INPUT NUMBER ",$04 
MSG3 DC.B "SUM IS: ",$04 
STRBUF DS.B 30 

END START 

Make the changes in the previous program and assemble this one as ADD6. 
Give it a try. This one assembled correctly on the first try and did what I expected 
it to do. Now you can balance your checkbook provided your balance never 
exceeds $327.67 nor is in the red by more than $327.68. (Just omit the decimal 
point in your entries). 1*11 leave it as the first exercise for you to work 
independently, to change the .W arithmetic to .L arithmetic. I believe DECIN 
will already work for Longs, but you will have to use OUT10D rather than 
OUT5D in order to print out the longer number. When you get done, you can 
balance your checkbook if the numbers are less than about $20,000,000. If that 
is a problem for you, let me know and we will do a double precision long integer 
version that can handle the National Debt! 

On a different subject, it might be time to introduce a few more quirks in the 
68000 instruction set (hereafter when I say 68000 I mean the entire family, it 
gets tiresome to write 68XXX all the time). There is a special short instruction 
that may be used to add a small amount to a register. Edit the following two line 
program and assemble it using ASM: 

ADD. W #1,D0 
ADDQ.W #1,D0 
END 

You will get the following listing: 

00002 00000000 06450001 

00003 00000004 5245 

00004 00000006 



add.w #l,d5 
addq.w #l,d5 
end 



Notice that the second line generates a shorter instruction (i.e. hex code) than 
the first. In fact the first is a 4 byte instruction and the second is only 2. The Q 



November 1990 



11 



(for Quick) version of Add and Subtract work for immediate values from 1 to 
8. There were three bits left over in the instruction (speaking loosely) so the 
people who worked out the instruction set coded the immediate value right into 
the instruction. In the case of the regular ADD instruction the amount to be 
added is coded in the second word of the instruction (the 0001 in the above 
listing). Again, I will refer you to the 68000 user's manual or your book on 
assembler programming on the 68000. The situation here is similar to the one 
that we discussed in considering the branch instructions, BRA vs. BRA.S. The 
shorter form of the instruction is more limited in scope but it reduces the size of 
the object code and it runs faster, and so should be considered if speed is critical. 
With a megabyte of memory available, you might well ask why a programmer 
should worry about saving two bytes here and there, and the question is valid. 
Back in the days when a computer had 4K of memory, programmers were very 
concerned about saving a few bytes, and some of this is a holdover from those 
days. Obviously with all that memory, space is no longer as important a 
consideration, but speed might be a larger one. 

Generally compilers ignore these shortcut instructions and use the BRA form 
and the ADD form without exception. This is a case of simplifying the compiler 
at the expense of a few more bytes of code. I ought to mention that some 
assemblers automatically choose the correct instruction. ASMK from Palm 
Beach Software, for example, will generate an ADDQ machine code wherever 
an ADD has a value within proper range. ASMK won't accept an ADDQ 
instruction, however. It wants to do it automatically and it balks with an error 
message if you try to tell it to use the ADDQ. ASMK does something else that 
is rather nice. If you use a BRA., instruction, and it is within the range of a 
BRA.S, it will flag the instruction so you can change it. In this case, the 
assembler doesn't do it automatically, but it does tell you that you may do it. In 
a long program you may find that when you change all the flagged branch 
instructions to short branches, a few more will be brought within range, so the 
process is iterative. Perhaps this is why the assembler doesn't do it automati- 
cally. 

Our program from above yields the following when assembled with ASMK: 

000000 5245 add.w #1,(15 

000002 4E71 4E71 4E71 addq.W #l,d5 

*** UNRECOGNIZABLE MNEMONIC OR MACRO 

end 

It automatically generates the machine code for ADDQ on the ADD.W 
instruction, and it complains when you try to tell it to use ADDQ. 

If you look through the user's guide you will find a couple other versions of 
ADD. Both of the assemblers mentioned here handle those automatically. In 
the original instruction set we would have to use ADDI #32,D7. Both assem- 
blers see the immediate sign (#) and generate the ADDI instruction. ADDA is 
also mentioned for use in adding to an address register. This is also handled by 
both assemblers. There are a few more subtle differences in the two assemblers 
that we needn't worry about for the present. 
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Well, next time we will get into reading from and writing to disk files, I 
promise. Perhaps at that point, you will be able to read and understand books 
on the subject without help. 

I truly hope these four articles have helped you to get started. Somehow it 
is difficult to get through that first step of firing up the computer and getting it 
to do something. Welcome to the world of computer programmers as opposed 
to being appliance users. Future columns will deal with using compilers and 
interpreters, and reviews of software that you can use. 

Print Spooling on the PT68K-2 

by Dr. Michael Randall 

(Editor's Note: Mike sent us the enclosed code for inclusion in the 68 News, 
but did not enclose an article with it. I have therefore added the following 
paragraphs by way of explanation.) 

A print spooler lets you print a file at the same time as you do something else; 
the word spooler dates back to the early days of large computers, when the file 
was written to a spool of tape, to be printed at a later time. For example, a print 
spooler allows you to print out an assembly listing at the same time as you edit 
or assemble another file. 

Without a print spooler, you would have to wait until the printing is finished 
before you could edit or assemble the next file; the spooler allows you to do both 
at the same time. The computer can handle both jobs easily because printing 
keeps the printer busy, but involves relatively little work for the CPU. 

The print spooler is nothing more than a program (or actually, two programs 
in our case), which sets up a timer (the DUART in our case) to generate periodic 
interrupts. Each time this interrupt arrives, the CPU stops the current program 
(which may be an editor, assembler, or any other program you might be running), 
temporarily goes off to send the next character to the printer, and then resumes 
your program as if nothing had happened. Since the interruption is very short, 
you will generally never notice that the CPU went off to do something else for 
a moment. 

To use Mike's print spooler, you must do three things: 

Step 1. Prepare the file or files you want to print. For most normal text files, 
the file may already exist as .TXT files, in which case you need do nothing. In 
some cases, you may have to go out of your way to prepare the file. For example, 
to spool an assembly listing, you will have to tell the assembler to write a listing 
file, rather than print it directly. This could be done by redirecting its output to 
a file. For example, the command 

ASM TESTFILE -B 4 . LI ST FILE . OUT 

would tell the assembler to assemble TESTFILE, not generate a binary file, and 
send all output to a file called LISTFILE.OUT on drive 4. (On my system, drive 
4 is generally a RAMdisk, so this would be a strictly temporary file.) 

Step 2. Use the DEVICE command to load the PARSPOOL printer driver and 
call it PSPL. The following command would do the job: 
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DEVICE PARSPOOL AT 3 AS PSPL 

Note that a different driver is needed; the normal PARALLEL driver you may 
have been using to date is not set up for spooling. 

Step 3. Use the PRINT command to send the file to the driver. In our example, 
the command would be 

PRINT LISTPILE 

PRINT is used here instead of LIST. Many of you have been using a command 
such as LIST PRTR to send a listing to a PRTR driver, now you would use 
PRINT instead. The PRINT command defaults to an extension of .OUT, so we 
did not need to add an .OUT after LISTFILE; for other extensions, you would 
need to add it. 

The PARSPOOL driver code follows: 

NAM PARSPOOL.TXT 
OPT PAO 

LIB SKEQUATE.TXT 
PAO 



* PARALLEL DEVICE DRIVER FOR SK*DOS/68K 

* THIS VERSION IS CONFIGURED POR THE PT-68K-2 COMPUTER 

* IT IMPLEMENTS PRINTER SPOOLING USING DUART 2 TO + 

* GENERATE TIMER INTERRUPTS + 

* OCNTRL $0081 GIVES THE CALLER ACCESS TO THE SPOOL + 

* QUEUE DATA STRUCTURE + 

* IT IS BASED ON PETER STARK'S "PARALLEL. TXT" + 

* PARTS ADDED ARE MARKED '*+" PARTS CHANGED ARB MARKED "X" + 



* THE FORMAT OF A DEVICi DRIVER FOR SK*DOS IS VERY RIGID, 

* ESPECIALLY AT THE BEGINNING AND VERY END. YOU MAY 

* SUBSTITUTE YOUR OWN DRIVER CODE, BUT MAKE SURE TO USE THE SAME 

* FORMAT FOR THE DRIVER AS THIS EXAMPLE. NOTE ESPECIALLY THAT 

* THIS DRIVER IS NOT EXECUTABLE / IT IS TO BE LOADED INTO MEMORY 

* BY THE 'DEVICE' UTILITY, AND MUST BE POSITION- INDEPENDENT. 

**************** IMPORTANT ! ! **************************** 

** IF USING ASM.COM TO ASSEMBLE THIS FILE, CHANGE "PAG" 
** TO "PAGE" IN LINES 2 AND 3, AND MAKE SURE TO 
** USB THE -F OPTION 

********************************************************** 

********************************************************** 

* PART 1. BEGINNING, VERSION NUMBER, AND A ' DN' MARKER 

* WHICH IS CHECKED BY 'DEVICE' TO AVOID ERRORS. 
********************************************************** 

START BRA.S START NEVER EXECUTED 

DC.W $0001 VERSION NUMBER 

DC.W $444E 'DN' ID MARKER 

********************************************************** 

* PART 2. LENGTH SPECIFICATION. THE NEXT LONG WORD DEFINES 

* THE LENGTH OF THE DRIVER TO DEVICE.COM. THEEND IS A 

* LABEL WHICH IS PLACED AT THE VERY END OF THE DRIVER 
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**************************************** * * **************** 

LENGTH DC.L THEEND 

********************************************************** 

* PART 3. ENTRY POINT POINTERS. THE FOLLOWING POINTERS 

* DEFINE THE ENTRY POINTS INTO THE DRIVER. ALL ARE 

* RELATIVE TO THE ORIGIN 

********************************************************** 



DC. 


L 


INIPOl 


DRIVER INITIALIZATION 


X 


DC. 


L 


INSTAT 


INPUT STATUS 




DC. 


L 


INCHAR 


INPUT CHARACTER WITH ECHO 




DC. 


L 


INCHAN 


INPUT CHAR WITHOUT ECHO 




DC. 


L 


ICNTRL 


INPUT CONTROL ENTRY 




DC. 


L 


OUSTA1 


OUTPUT STATUS 


X 


DC. 


L 


OUCHR1 


OUTPUT A CHARACTER 


X 


DC. 


L 


OCNTR1 


OUTPUT CONTROL ENTRY 


X 


DC. 


L 


INSTA1 


INPUT STATUS (1 CHAR ONLY) 




DC. 


L 


INCHN1 


INPUT 1 CHAR ONLY, NO ECHO 




DC. 


L 


BFLUSH 


FLUSH TYPE AHEAD BUFFER 





************************************************************* 

* PART 4. THE FOLLOWING LINE DEFINES THE BEGINNING OF THE ACTUAL 

* CODE AS BEING AT $0000. IT SERVES TO BREAK UP THE OBJECT FILE 

* TO MAKE IT EASIER FOR 'DEVICE' TO LOAD INTO THE CORRECT PLACE. 
************************************************************* 

ORG $0000 

************************************************************* 

* PART 5. DATA AREA USED BY THE DEVICE DRIVER FOR VARIOUS 

* PURPOSES. 

************************************************************* 

* BYTES 0-12; 

* NAME OF THIS DEVICE DRIVER DISK FILE - 12 CHARACTERS PLUS 04 

* 'PRTSPOOL' IS REQUIRED BY PRINT.COM WHICH SEARCHES THE + 

* DEVICE TABLE FOR A DEVICE WITH THIS NAME + 

DRNAME DC.B ' PRTSPOOL. DVR' , 4 X 

* BYTE 13: 

* DEVICE NUMBER SO THIS DRIVER KNOWS WHICH DEVICE IT IS 
DEVNUM DC.B 0 WILL BE FILLED IN BY 'DEVICE' 

* BYTES 14-17: 

* ADDRESS OF DEVICE DESCRIPTOR FOR THIS DRIVER 

DEVADD DC.L 0 WILL BE FILLED IN BY 'DEVICE' 

************************************************************* 

* PART 6. DEVICE INITIALIZATION. THIS CODE INITIALIZES PORT A 

* OF THE 68230 PI/T AT $FE0080 IN THE PT68K-2 COMPUTER 

* AND TIMER INTERRUPTS USING DUART 2 . IT IS + 

* ONLY EXECUTED WHEN LOADED BY 'DEVICE'. ALL REGISTERS CAN BE 

* CHANGED. 
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************************************************************* 

* HARDWARE EQUATES FOR THE PORTS 



STAREO EQU PIT+26 PORT STATUS REGISTER 

BASE EQU $FE0040 DUART2 BASE ADDRESS + 

ACR EQU BASE+$9 + 

ISR EQU BASE+$B + 

I MR EQU BASE+$B ♦ 

CTUR EQU BASE+ $D + 

CTLR EQU BASE+$F + 

STARTC EQU BASE+$lD + 

STOPC EQU BASE+$1F + 
VEC5 EQU $74 LEVEL 5 AUTOINTERRUPT VECTOR + 

DRVUSD EQU $113C + 

SECTRD EQU $1020 + 

DIREAD EQU $110C + 

* INITIALISE TIMER + 
INIPOl DC INTDIS DISABLE INTERRUPTS + 

LEA INT (PC), AO + 

LEA SAWEC ( PC ) , Al + 

MOVE.L VEC5,(A1) SAVE NORMAL VECTOR + 

MOVE.L A0,VEC5 INSTALL NEW VECTOR + 

MOVE.B #$F0,ACR TIMER MODE SET UP ♦ 

MOVE.B #$4, CTUR + 

MOVE.B #$84, CTLR lOma INT + 

TST.B STOPC CLEAR ISR [3] + 

TST.B STARTC START TIMER CLEAN + 

MOVE.B #8,IMR ENABLE TIMER INTERRUPT + 

BSR.S INIPOR PRINTER INIT + 

DC INTENA ENABLE INTERRUPTS + 

RTS + 

* INITIALISE PRINTER PORT A FOR UNIDIRECTIONAL OUTPUT, 

* H2 PULSED OUTPUT MODE, Hi TO DETECT RISING EDGE 

INIPOR MOVE.B #0,GENCON START WITH GENERAL CTRL *0 

MOVE.B #$FF,PADIR 8 OUTPUT BITS 

MOVE.B #$78,PACONT PORT A, SUBMODB 01, PULSED 

MOVE.B #$10,GENCON ENABLE PORT 

RTS 

*********************************************************** 

* PART 7. INPUT PORT STATUS CHECK. THIS ROUTINE IS TO RETURN 

* TWO THINGS: 

* 1. ZERO IF NO CHARACTER IS READY, NON-ZERO OTHERWISE 

* 2. D5=0 IF NO CHARACTER IS READY, ELSE THE NUMBER OF 

* CHARACTERS READY. IN NON- INTERRUPT SYSTEMS, D5 SHOULD 

* RETURN A 1; ONLY IN INTERRUPT -DRIVEN SYSTEMS WILL IT 
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* INDICATE A REAL NUMBER OF CHARACTERS IN INPUT BUFFER 

* PRESERVE ALL REGISTERS 

* ON THE PRINTER PORT, HOWEVER, THERE IS NO INPUT SO ZERO 

* NOTE CHANGES INTRODUCED IN VERSION 0004 : 

* THERE ARE NOW TWO INSTA- ENTRIES, ALTHOUGH BOTH DEFAULT 

* TO THE SAME ROUTINE IF THERE IS NO TYPEAHEAD BUFFER ON THE 

* INPUT PORT: INSTAT CHECKS TO SEE WHETHER THERE IS ANY CHARACTER 

* IN THE TYPEAHEAD BUFFER, WHEREAS INSTAl CHECKS ONLY TO SEE 

* WHETHER THERE IS A 'LAST' CHARACTER AT THE END OF THE BUFFER 

* WHICH HAS NOT YET BEEN INPUT WITH THE INCHNl ENTRY 
******************************************* 

INSTAT MOVE.B #0,D5 NO CHARACTER READY 

RTS 

INSTAl EQU INSTAT 

*********************************************************** 

* PART 8. GET INPUT CHARACTER FROM PORT INTO D5 AND ECHO IT TO 

* THE OUTPUT PORT. IF NO CHARACTER IS READY, WAIT FOR IT. 

* PRESERVE THE PARITY BIT, AND PRESERVE ALL REGISTERS 

* ON THE PRINTER PORT, HOWEVER, THERE IS NO INPUT SO ZERO 

* THIS ENTRY USES THE TYPEAHEAD BUFFER, IF ANY 
********************* * * **************** * * ****************** 

INCHAR MOVE.B #0,D5 RETURN NOTHING 

RTS 

*********************************************************** 

* PART 9. GET INPUT CHARACTER FROM PORT INTO D5 WITHOUT ECHOING 
TO 

* THE OUTPUT PORT. IF NO CHARACTER IS READY, WAIT FOR IT. 

* PRESERVE THE PARITY BIT, AND PRESERVE ALL REGISTERS 

* ON THE PRINTER PORT, HOWEVER, THERE IS NO INPUT SO ZERO 

* NOTE CHANGES INTRODUCED IN VERSION 0004 : 

* THERE ARE NOW TWO INCH-- ENTRIES, ALTHOUGH BOTH DEFAULT 

* TO THE SAME ROUTINE IF THERE IS NO TYPEAHEAD BUFFER ON THE 

* INPUT PORT: INC HAN TAKES THE NEXT CHARACTER FROM THE TYPEAHEAD 

* BUFFER (AND CLEARS THE INSTAl FLAG), WHEREAS INCHNl TAKES ONLY 

* THE CHARACTER FROM THE END OF THE TYPEAHEAD BUFFER, AND CLEARS 

* BOTH FLAGS. 

*********************************************************** 

INCHAN MOVE.B #0,D5 RETURN NOTHING 

RTS 

INCHNl EQU INCHAN 

*************** * * ***** * * *********************************** 

* PART 10. INPUT CHANNEL CONTROL. THIS DRIVER DOES NOT 

* IMPLEMENT INPUT CONTROL, SO SIGNAL ERROR AND RTS 
*********************************************************** 

ICNTRL AND.B #$FB,CCR RETURN NON-ZERO ERROR 

RTS 



*********************************************************** 
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* PART 11. OUTPUT STATUS. RETURN ZERO IF OUTPUT IS NOT 

* READY/ NON-ZERO IF READY TO OUTPUT NEXT. PRESERVE ALL 

* REGISTERS. IF NO HANDSHAKING IS USED, OR IF HARDWARE 

* HANDSHAKING IS USED, THEN SIMPLY CHECK BUSY BIT. 
************************************************* 



OUSTA1 MOVE.L A0,-(A7) 
LEA SPAF(PC) / A0 
TST.B (AO) 
BPL.S OCERR 
BTST #0, STARBG 

OSX MOVE.L (A7) + ,A0 

RTS 



SAVE 



IF SPOOL NOT IDLE 
= BSR OUSTAT 
RESTORE 



*********************************************************** 

* PART 12. OUTPUT CHARACTER FROM D5 TO OUTPUT PORT. IF NOT 

* READY, JUST WAIT FOR IT. PRESERVE ALL REGISTERS (INCLUDING D5) 
*********************************************************** 



OUCHAR BTST . B #0, STARBG 
BEQ.S OUCHAR 
MOVE . B D5 , DATREG 
RTS 



CHECK IF READY 
WAIT UNTIL READY 
OUTPUT THE CHARACTER 



OUCHR1 MOVE.L A0,-(A7) 
LEA SPAF ( PC ) , AO 
TST.B (AO) 
BPL.S OCERR 
BSR.S OUCHAR 
MOVE.L (A7)+,A0 
RTS 



SAVE 

ZERO IF SPOOLING ACTIVE 



PRINT IF IDLE 
RESTORE 



OCERR MOVE.W #$FFF1,D4 

DC $A032 OCNTR1 
LEA SPMSG(PC),A4 
DC PSTRNG 
DC WARMST 



REDIRECT TO ERROR OUTPUT 



ERROR IF SPOOLING NOT IDLE 



******************************************************* 

* PART 13. OUTPUT CHANNEL CONTROL. 

******************************************************* 

* $0081 USED BY PRINT.COM 
OCNTR1 CMP.W #$81, D4 

BEQ.S OCNT81 



OCNTRL 



AND.B #$FB,CCR 
RTS 



RETURN NON-ZERO ERROR 



* RETURN PTR TO QUEUE DATA STRUCTURE IN D5.L 
OCNT81 MOVE.L A0,-(A7) SAVE AO 

LEA AQP(PC),A0 

MOVE.L AO, 05 
IEXIT MOVE.L (A7)+,A0 RESTORE AO 

OR.B #4,CCR SET Z - NO ERROR 

RTS 
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**************************************************** 

* PART 14. WHEN A TYPEAHEAD BUFFER 

* EXISTS, THIS FLUSHES IT AND CLEARS BOTH INSTAT AND 

* INSTA1 FLAGS TO INDICATE THAT ALL IS EMPTY. 
***************************************************** 

BFLUSH RTS IN THIS CASE DOES NOTHING 

*SS8SSSSS.SSSr««SS9SSSSSSSSSS.8SSS8SSS3SaSSSSSSSSSSSSSSSSSSSSSS 

* INTERRUPT ROUTINE FOR TIMER INTERRUPTS + 
INT BTST #3,ISR + 

BNE.S TIMINT + 
MOVE.L SAWEC(PC) , - (A7) NORMAL INT ADDR ON STACK + 

RTS GO TO NORMAL INT ROUTINE IF NOT TIMER INT + 

TIMINT TST.B STOPC TO CLEAR ISR[3] + 

MOVE.L A0,-(A7) SAVE AO ON STACK + 

LEA SPAF(PC) ,A0 + 

TST.B (AO) + 
BNE.S SPX1 IGNORE IF IDLE OR SUSPENDED + 

BTST • B #0, STAREG + 
BEQ.S SPX1 IGNORE IF PRINTER NOT READY + 

MOVBM.L D0-D7/A1-A6,-(A7) SAVE REGISTERS + 

♦SPOOL OPERATIONS + 

LEA SPFCB(PC) ,A4 + 

BSR TREAD + 

BEQ.S EOF + 

TST.B D5 + 

BEQ.S SPEXIT IGNORE NULLS + 

MOVE.B D5,DATREG PRINT CHAR * BSR OUCHAR + 

BRA.S SPEXIT + 

EOF LEA SPAF ( PC ) , A2 A2sSPAF + 

MOVE.B #1, (A2) SUSPEND + 

* on end-of~file of file error print form-feed + 

* and go to next file if any + 

MOVE.B #$C,D5 + 

BSR OUCHAR PRINT FF + 

LEA AQP(PC) ,A0 + 

MOVE.L (AO) ,A0 + 

MOVE.B #0,(A0) FREE THE FILE DEF ENTRY + 

BSR BUMP BUMP POINTERS & OPEN FILE IF ANY+ 

SPEXIT MOVEM . L (A7 ) + ,D0-D7/A1-A6 RESTORE REGS + 

SPX1 MOVE.L (A7)+,A0 RESTORE AO + 

RTE + 

* BUMP POINTERS + 
BUMP LEA AQP(PC) ,A0 + 

MOVB.W #9,D5 MOVE 10 POINTERS UP + 

SS2 MOVE.L 4(A0) , (A0)+ + 

DBRA D5,SS2 + 

MOVE.L #0,(A0) CLEAR LAST POINTER + 

BSR OPFI + 

TST.B (A2) + 
BMI.S SS3 IF IDLE (SET BY OPFI IF Q EMPTY) + 

MOVE.B #0,(A2) SET ACTIVE IF SUSPENDED ♦ 
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SS3 RTS + 

* OPEN FILE IF NRINQ #0 + 
OPFI LEA NRINQ (PC) , AO + 

TST.B (AO) + 

BNE.S OF1 + 
MOVE.B #$FF,(A2) SET FLAG TO INDICATE SPOOL IDLE+ 

RTS + 

OF1 SUB.B #1, (AO) ADJUST MR IN Q + 

LEA AQP(PC) ,A0 + 

MOVE.L (AO), AO A0=FILE DEF STRING + 

LEA SPFCB(PC),A4 + 

MOVE.B 1(A0),FCBDRV(A4) + 

MOVE.W 14 (AO) ,FCBCTR(A4) + 

LEA COUNT (PC) ,A0 + 

MOVE.B #255, (AO) + 

RTS + 

FCBPTR EQU 80 UNUSED SPACE IN FCB + 

TREAD LEA COUNT ( PC ) , AO + 

CMP.B #255, (AO) + 

BNE.S NXTBYT + 

* READ NEXT SECTOR + 

BSR S1READ + 

BNE TRERR + 

MOVE.W FCBDAT ( A4 ) , FCBCTR ( A4 ) LINK TO NEXT + 

MOVE.B #252, (AO) REDUCE COUNT + 

LEA 100(A4),A3 POINT TO 1ST DATA BYTE + 

BRA. S NB1 + 

NXTBYT MOVE.L FCBPTR (A4 ), A3 GET DATA PTR + 

NB1 MOVE.B (A3)+,D5 + 

MOVE.L A3, FCBPTR (A4) UPDATE DATA PTR + 

SUB.B #1, (AO) 0 WHEN LAST BYTE READ + 

BEQ.S LSTBYT LAST BYTE READ + 

RTS ♦ 

LSTBYT TST.W FCBCTR (A4) + 

BEQ.S ITSBOF THAT WAS LAST SBC RETN WITH Z SBT+ 

MOVE.B #255, (AO) Z NOW CLEAR + 

RTS + 

ITSEOF MOVE.B #8 , FCBBRR ( A4 ) + 

TRERR OR.B #4,CCR SET Z FOR EOF OR READ ERR + 

RTS + 

* SINGLE SECTOR READ - DON'T USE DC SREAD 111 + 
Si READ MOVE.B 3(A4),D5 + 

AND. L #$F,D5 + 

MOVE.L #DRVUSD,A3 + 

MOVE.B 0(A3,D5) ,FCBPHY(A4) + 

JSR SECTRD + 

JMP DIREAD + 

* . . + 

* DATA AREA + 

*- , - — - + 

SAWEC DC.L 0 SAVE OLD VECTOR HERE + 

NRINQ DC.B 0 NR FILES IN Q 

SPAF DC.B $FF * SPOOLING IDLE, + 

* 1= SUSPENDED, 0 = ACTIVE + 
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AQP DC.Ii 0 ACTIVE QUEUE POINTER + 

QPO DC. L 0,0/0,0,0,0,0/0/0,0 TEN Q POINTERS + 

FSO DC.L 0,0,0,0 1ST FILE DEFINITION STRING + 



DC. L 0,0,0,0 + 

DC. I* 0,0,0,0 + 

DC.L 0,0,0,0 +• 

DC. L 0,0,0,0 + 

DC.L 0,0,0,0 + 

DC.L 0,0,0,0 + 

DC.L 0,0,0,0 + 

DC.L 0,0,0,0 + 

DC.L 0,0,0,0 TEN FILE DBF STRS + 

SPFCB EQU * SPOOLER FCB + 

RPT 38 X16=608 + 
DC.L 0,0,0,0 

COUNT DC.B 0 + 

SPMSG FCC /PRINT ERROR - SPOOLING ACTIVE/, 4 + 



************************************************** 

* THE END. LABEL THEEND IS USED TO CALCULATE LENGTH OF 

* DRIVER. NOTE THAT THERE IS NO TRANSFER ADDRESS. 
******************************************************* 



THEEND EQU * 
END 

The following is the PRINT.COM program: 

NAM PRINT.COM 

OPT PAG 

PAG 

LIB SKEQUATE.TXT 

*--.--«■ 

* PRINT.COM - ENTER FILE IN SPOOL PRINT QUEUE 



OCNTRL 


EQU 


$A032 


PSPL 


EQU 


'PSPL' 


* OFFSETS TO 


SPOOL DATA 


NRINQ 


EQU 


-2 


SPAF 


EQU 


-1 


AQP 


EQU 


0 


QPO 


EQU 


4 


FSO 


EQU 


$2C 


SPFCB 


EQU 


$CC 


COUNT 


EQU 


$32C 



START MOVE.L #0,D4 
DC OCNTRL 
AND. L #7,D5 
OR.W #$FFF0,D5 
MOVE.L D5,D2 

IN D2 

* CHECK FOR PSPL DEVICE 

DC VPOINT 
MOVE.L A6,A4 

* search the device table for a 

LEA SPNAME(PC) ,A0 

LEA DEVTAB (A6) , Al 



GET CURRENT DEVICE IN D5 



OCNTRL WORD FOR CURRENT DEVICE 



USE USRFCB 
device named PRTSPOOL 
POINT TO NAME TO BE FOUND 
POINT TO DEVICE TABLE 1ST ENTRY 
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CLR.L Dl START AT DEVICE 0 

SRCH MOVE.L 4(Al),A2 POINT TO START OF DRIVER CODE 

MOVE.L (A2),D0 

CMP.L (AO), DO 

BNB.S NOTIT 

MOVE.L 4(A2),D0 

CMP.L 4 (AO), DO 

BNE.S NOTIT 

* WE HAVE POUND THE DRIVER (Dl) 

BRA.S NEWDBV 

NOTIT ADD.B #1,D1 

CMP.B #8 # D1 

BEQ.S NOTFND WE COULD 'T FIND IT 

ADD. L #80,A1 NEXT ENTRY IN DEVICE TABLE 

BRA.S SRCH 

* REPORT DEVICE NOT INSTALLED 
NOTFND LEA NOPSPL ( PC ) # A4 

DC PSTRNO 

DC WARMST 

* SAVE OCNTRL WORD FOR PSPL DEVICE IN Dl 
NEWDEV OR.W #$FFF0,D1 

* GET FILE SPEC INTO FCB 

DC OETNAM 

BCC.S EXTEN 

* REPORT IMPROPER FILE SPEC - TELL USER THE RIOHT SYNTAX 

LEA BADFIL(PC) ,A4 

DC PSTRNO 

DC WARMST 

EXTEN MOVE . L #11 , D4 

DC DEFEXT (.OUT) 

* SWITCH TO PSPL DEVICE 

MOVE.L D1,D4 

DC OCNTRL 

MOVE.W #$81, D4 

DC OCNTRL GET PTR TO SPOOL DATA IN D5 

MOVE.L D5,A3 * SPOOL DATA STRUCTURE 

MOVE.L D2,D4 

DC OCNTRL SWITCH TO FORMER DEVICE 

MOVE.B SPAF(A3),D3 CURRENT SPAF SAVED IN D3 

BMI.S II 

MOVE.B #1, SPAF (A3) IF NOT IDLE, SUSPEND 

11 CMP.B #10,NRINQ(A3) 

BEQ FULL NO FREE ENTRIES 

* OPEN AND CLOSE THE FILE 

DC FOPENR 

BNE ERROR 

DC FCLOSB 

BNE ERROR 

* GET FREE ENTRY IN FILE DBF TABLE 

LEA FS0(A3) f A0 

12 TST.B (AO) LOOK FOR FREE ENTRY 
BEQ.S 13 

ADD. L #16 # AO NEXT ENTRY 

BRA.S 12 

13 MOVE.L A0,A2 A2,A0»FILE DBF ENTRY 
MOVE.B #$20,(A0)+ SPACE (NON-ZERO) 
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CPY 



LEA 3 (A4 ) , Al 

MOVB.lt #11, DO 

MOVE.B (Al) + , (A0) + 

DBRA DO , CPY 



AlsFCB FILE DEF 
12 BYTES TO COPY 

COPY FCB TO FILE DEF 



* ENTER FILE DEF IN Q 



MOVE*L 

MOVE.B 

ASL.B 

LEA 

ADD.L 

MOVE.L 

ADD.B 

MOVE.W 



#0,D5 

NRINQ(A3),D5 
#2,D5 

QP0(A3) ,A1 
D5,Al 
A2, (Al) 
#1,NRINQ(A3) 



X4 

(Al) IS NEXT Q PTR 
STORE FILE DEF ADDR 
UPDATE 



FCBFTR ( A4 ) , 14 ( A2 ) 1ST TRK/SEC TO FILE DEF 



* IF NOT IDLE RESTORE SPOOL STATE 



TST.B 
BMI 

MOVE.B 
DC 



D3 

STSP 

D3,SPAF(A3) 
WARMST 



IF IDLE START SPOOLING 



STSP 
SS2 



LEA 

MOVE.W 
MOVE . L 
DBRA 
CLR.L 
SUB.B 



AQP(A3) ,A0 
#9, DO 

4 (AO) , (A0) + 

D0,SS2 

(AO) 

#1,NRINQ(A3) 



MOVE 10 PTRS UP 



CLEAR LAST PTR 



* INITIALISE SPOOL FCB 



LEA SPFCB(A3) ,A4 

MOVE.B 1(A2) # FCBDRV(A4) 

MOVE.W 14(A2) # FCBCTR(A4) 

MOVE.B #2 55, COUNT (A3) 

MOVE.B #0,SPAF(A3) ACTIVATE SPOOLER 

DC WARMST 



FULL 



LEA 

DC 

DC 



QFULL(PC) ,A4 

PSTRNO 

WARMST 



ERROR 



DC 
DC 



PERROR 
WARMST 



* DATA AREA 



SPNAMB FCC 
NOPSPL FCC 
BADFIL FCC 
FCC 

queue/, 4 
QFULL FCC 
END 



/PRTSPOOL/ spool device driver filename 

/SPOOL DEVICE PSPL NOT INSTALLED/, 4 

/Syntax:- PRINT filespec/ , $D, $A 

/Inserts filespec (default .OUT) in spool print 

/PRINT SPOOL QUEUE FULL/, 4 
START 



If you want to avoid the effort of typing these listings in, the code for both of 
these programs is available for downloading from the Star-K BBS at (914) 
241-3307. 
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A Modified LIST Utility 

by David Underlain! 

I have found the LIST utility from the SK*DOS users manual to be very useful. 
However, I did find a few things annoying. First, the printer does not formfeed 
after the listing is finished, and second, the lines per page count does not reset. 
Thus, the second listing will have the bottom and top of page margins inserted 
in the middle of the page. The following is a quick and dirty fix for this problem 
and also adds the ability to date stamp the top of a printout to help keep track of 
different versions of a program. 

I have the following line in my STARTUP.BAT file; 

dosparam 2 wd=80 pl=56 sl=10 

This allows printing of 56 lines of text on a page with 10 lines skipped over 
the perforation. The problem is that the line counter in the print driver doesn't 
get reset after a listing is finished. To solve this situation, I added the following 
lines to the close subroutine at the end of the list program: 

MOVE.B #$0C,D4 

DC PUTCH OUTPUT A FORM FEED 

MOVE.B #$00,$D9F(A6) SET PLINBS FOR DEVICE 2 TO ZERO 

The above outputs a form feed to the printer (the screen ignores it) and sets the 
line count (PLINES) to zero in readiness for the next printout. Note: if a print 
from another driver (assembler listing) is generated, it may NOT reset PLINES 
either. To be sure that the printer and the driver are ready for the next print out, 
do a manual formfeed on the printer and at the DOS prompt type: 

LIST LIST 

This will set the printer to top of form and reset PLINES in readiness for the 
next print out. 

While I was at it, I decided that since I am very careless about version numbers 
and dates of file creation that I would also add a date stamp to the listing routine. 
The following is inserted immediately after the opening of the file to allow the 
file name and date that the file was last stored to be printed at the top of the 
listing: 



*LETS 


PRINT THE 


FILE NAME 






MOVE.L 


A0,A4 


MAKE A4 POINT 0 FCB 




ADDA. L 


#4,A4 


FILE NAME STARTS AT BYTE 4 




MOVE.L 


#7,D2 


SET COUNT FOR 8 BYTE NAME 


LOOP 


MOVE.B 


(A4) + ,D4 


GET THE CHARACTER OF NAME 




BEQ 


EXT 


IF ZERO, NAME SHORTER THAN 8 BYTES 




DC 


PUTCH 


PRINT IT 




DBRA 


D2,LOOP 


IF NOT DONE BRANCH 


*NOW ADD EXTENSION 




EXT 


MOVE.B 


#$2E,D4 






DC 


PUTCH 


PRINT A . 




MOVE.L 


A0,A4 


OET FCB POINTER BACK 




ADDA. L 


#12, A4 


EXTENSION STARTS AT 12 TH BYTE 




MOVE.L 


#2,D2 


SET UP FOR 3 CHARACTERS 


LOOP1 


MOVE.B 


(A4)+,D4 


OET THE CHARACTER 
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BEQ DATE IF ZERO NO EXTENSION 

DC PUTCH PRINT IT 

DBRA D2,LOOPl BRANCH IF NOT DONE 

♦LETS PRINT THE DATE THAT THE PILE WAS LAST SAVED 

DATE LEA MSG(PC) ,A4 

DC PNSTRN PRINT THE MESSAGE 

CLR.L D4 

MOVE.L A6,A4 MAKE A4 POINT TO FCB 

MOVE.B FCBMON(A4),D4 GET MONTH OF FILE CREATION 

MOVE.L #00, D5 PRINT WITH OUT LEADING ZEROS 

DC OUT5D OUTPUT IN DECIMAL 

MOVE.B #$2F,D4 

DC PUTCH PRINT / 

MOVE.B FCBDAY(A4) ,D4 GET DAY OF MONTH 

DC OUT5D PRINT DAY IN DECIMAL 

MOVE.B #$2F,D4 

DC PUTCH PRINT ANOTHER / 

MOVE.B FCBYBR(A4) ,D4 GET YEAR 

DC OUT5D PRINT YEAR IN DECIMAL 

DC PCRLF PRINT CR AND LF 



The above will print a line at the top of the listing such as: 

LIST. TXT WAS LAST UPDATED ON 5/ 28/ 90 

While this may not be fancy it does help keep track of different versions of a 
program. 

The complete, modified code is then this: 

♦LIST UTILITY FOR SK*DOS /68K 
♦COPYRIGHT (C) 1986 BY PETER A. STARK 
* 

* EQUATES TO SK*DOS 
* 

LIB SKEQUATE 

* 

LIST BRA. S START 

VER DC.W $0101 VERSION NUMBER 

* 

♦START OF ACTUAL PROGRAM 
START DC PCRLF 

CLR.B Dl 

MOVE.L A6,A0 

MOVE.L A6,A4 

DC GETNAM 

BCC.S NAMEOK 

MOVE.B #21,FCBBRR(A4) 

* 

♦ERROR ROUTINE 
* 

ERROR DC PERROR 

BSR CLOSE 

DC WARMST 
♦FILE SPEC WAS OK; DEFAULT TO .TXT 
NAMEOK MOVE.B #1,D4 

DC DEFEXT 

* 

♦NOW ACTUALLY OPEN THE FILE 
DC FOPENR 
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BNB.S 


ERROR 


*LETS 


PRINT THE FILENAME 




MOVB.L 


A0,A4 




ADDA.L 


#4,A4 




MOVB.L 


#7,D2 


LOOP 


MOVB.B 


<A4) + ,D4 




BBQ 


EXT 




DC 


PUTCH 




DBRA 


D2,LOOP 


EXT 


MOVB.B 


#$2B,D4 




DC 


PUTCH 




MOVB.L 


A0,A4 




ADDA.L 


#12, A4 




MOVB.L 


#2,D2 


LOOP1 


MOVB.B 


(A4) + ,D4 




BEQ 


DATE 




DC 


PUTCH 




DBRA 


D2 / LOOPl 



*LETS PRINT THE DATE THAT THE PILE WAS CREATED. 
DATE LEA MSG (PC) ,A4 

DC PNSTRN 

CLR.L D4 

MOVB.L A0,A4 

MOVB.B FCBMON(A4),D4 

MOVB.B #$00, D5 

DC OUT5D 

MOVB.B #$2F,D4 

DC PUTCH 

MOVB.B FCBDAY ( A4 ) , D4 

DC OUT5D 

MOVB.B #$2F # D4 

DC PUTCH 

MOVB.B FCBYBR ( A4 ) , D4 

DC OUT5D 

DC PCRLF 

DC PCRLF 

* 

♦MAIN LOOP TO READ AND PRINT BACH CHARACTER 
MAIN MOVB.L A0,A4 

DC FREAD 

BBQ.S CHAROK 

*IF THBRB WAS AN ERROR, SEE IF END OF FILE 
CMP.B #8,FCBBRR(A4) 
BNE ERROR 
BSR.S CLOSE 
DC WARMST 

* 

* CONTINUE IF CHARACTER IS OK 
CHAROK CMP.B #$0A,D5 

BNB.S PRNTIT 

MOVB.B D1 # D6 

MOVB.B D5,D1 

CMP.B #$0D,D6 

BBQ.S MAIN 
PRNTIT MOVB.B D5,D1 
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MOVB.B D5,D4 
DC PUTCH 
CMP .B #$0D,D4 
BNE.S MAIN 
MOVB.B #$0A,D4 
DC POTCH 
BRA.S MAIN 

# 

♦CLOSE SUBROUTINE 
* 

CLOSE MOVB.L A0,A4 
DC PCLOSB 
MOVB.B #$0C,D4 
DC POTCH 
MOVB.B #00,$D9F(A6) 
RTS 

* 

MSG DC.B ** WAS LAST UPDATED ON " 
DC.B 4 
END LIST 

More Programming Tricks 

by Gordon Reeder, 618 Adrian Drive, Rolla, MO 65401 

Here are some more tricks from my programing bag. What I have here is a 
group of four routines that help a programmer use the free memory that remains 
in a system after a program is loaded. I was writing a utility that would search 
for data in several files. To do this I needed several buffers; one to hold the list 
of files, one to hold the data I was looking for, and one to hold the data that was 
found. At this point I was faced with "programers dilemma #27", how large 
should I make the buffers?? Should the file list buffer hold 8, 20, 50, 100 files? 
If it was too small the usefulness of the program would suffer, if it was too large 
I would be wasting space. Wouldn't it be nice if I could have the buffer size 
determined at run time! 

It turns out that defining buffers at run time was easy to do. And now with 
these four routines, you can do it too! The buffers are placed in the free memory 
that is left over after SK*DOS loads your program. The amount of memory left 
depends on the size of your program and the amount of DRAM in your system. 
The last available byte of memory is at MEMEND(A6), and the first byte is at 
... well now, just where does the free memory begin anyway? SK*DOS doesn't 
have a variable to point to the beginning of free memory, so we have to define 
our own, like this... 

FREE DC.L FREB+4 end 

As you can see FREE has to be THE VERY LAST variable declared. In fact 
it has to be the last thing in the program before the 'end' statement. When the 
program is loaded into memory by SK*DOS, the first byte of free memory will 
be right after the variable FREE, and FREE will be pointing to it. Now that we 
can find the free memory we need a way to use it. The first routine is called 
Get_Mem. It's almost trivial in its simplicity. AH it does is read the value in 
FREE(pc) an return it in A4. So what? Well I included it for completeness, and 
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if you should want to add features to these routines you may find that you need 
a more complex Get_Mem. Placing it here makes upgrading easier. The next 
routine lets you set aside a block of memory. The size of the block, in bytes, is 
placed in A4, then Res_Mem is called. Res_Mem will check to make sure that 
there is enough memory to hold the block you want. Here is how to use it to set 
up a buffer. 

need to know where buffer will start 
this is where we will save it 
A4 has start address of the buffer 
it is now also in Buffer (pc) 
move #1000 ,A4 lets make the buffer 1000 bytes long 

bsr Res_Mem buffer is now set 

beq error unless there wasn't enough memory 



bsr 

lea.l 

move.l 



Get_Mem you 
Buf fer(pc) ,A1 
A4, (Al) 



Buffer ds.l 



of course you need to declare this. 



Now if you should call GeLMem it will return the new value that is the first 
byte after your new buffer. The next routine does the same thing that Res_Mem 
does, but in a different way. Instead of telling how much memory you want to 
set aside, you tell Set_Mem what the absolute end address is. The example 
routine above using Set_Mem would look like... 



bsr 

start 

lea.l 
move.l 

buffer 

* 

add.l 

bsr 

beq 



Get_Mem 



you need to know where the buffer will 



Buf fer(pc) ,A1 
A4, (Al) 



#1000, A4 

Set_Mera 

error 



this 
A4 hi 



is where we will save it 
is the start address of the 



it is now also in Buffer (pc) 

lets make the buffer 1000 bytes long 

buffer is now set 

unless there wasn't enough memory 



Buffer ds.l 1 of course you need to declare this. 

Actually, Set_Mem has a more useful function, As you will see shortly. The 
last routine doesn't even use the variable FREE, but it is useful for placing data 
into buffers so I included it here. Put_Mem can be used in a loop to place data 
into the free memory. D5 is used to hold the character to be placed into memory 
(compatible with GETNXT) and A4 holds the address to receive the data. When 
the routine returns A4 will have been incremented to the next address. Put_Mem 
also checks for memory overflows. Here is a way that you can use Put_Mem 
and Set_Mem to create a buffer that is exactly sized to its needs. 

bsr Get_Mem you need to know where buffer starts 

lea.l Buf f er (pc) , Al this is where we will save it 

move.l A4, (Al) A4 has start address of buffer 

* it is now also in Buffer (pc) 

Loop 

* read a byte of data (from a file or the keyboard, whatever) 

* the actual routine depends on your application 
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* be sure to preserve the contents of A4 

bsr.l Put_Mem put the data into free memory 

beq error oops, did we run out of memory? 

bra.s Loop 

* After all the data has been read 

AllDone bsr Set_Mem buffer is now set 

beq error unless there wasn't enough memory 



Buffer ds.l 1 of course you need to declare this. 

Now I don't know where you will be reading you data from, or how it's 
formatted. That's why I didn't include the code that gets the data or checks for 
the end of the input in the above routines. 

Maybe a word about what's going on is in order. The call to GeLMem returns 
the current value of the FREE. It is kept in A4 while one byte of input data is 
read. The input data routine needs to check for the out of data condition. If no 
more data is forthcoming then it should branch to AllDone. If not, it should place 
the data into D5 (GETCH and GETNXT will already have done this). The call 
to Put_Mem places the data into free memory. Notice that this is free memory, 
not memory that has been reserved or otherwise set aside. The call to Put_Mem 
will also increment A4 to the next byte. When all the data has been read A4 is 
pointing to what will become the new beginning of free memory. The call to 
SeLMern uses that value to update FREE, and set the new start of free memory. 
You are not limited to just one buffer. After one buffer has been set up you can 
use these routines to set up a second, and a third... You get the idea. In the 
program that I was writing that started all this, I set up four buffers. The end of 
the last buffer is never declared, I just use all available memory. Put these 
routines into a file and name it USEMEM.TXT. Now when ever you write a 
program that needs to use the vast expanse of memory in your system just include 
it with the statement 

lib usemem.txt 

The routines will be available to you with out having to type them into your 
source code. Well that's all for this time. But my bag of tricks is far from empty. 
So when I find some more useful routines I'll pass them along. What about you 
out there, yes, you reading this news letter. Do you have any tricks you know? 
How about passing them along too. 

Free memory routines: 

Get_Mem returns the first available byte of free memory 
Res Jvlem Reserves a block of x bytes of memory 
Put_Mem puts a byte into free memory 
Set_Mem sets the start of free memory at a user defined point 
All these routines use a longword 'FREE' that must be defined in the main 
body of the program. Like this... 

*FREE DC.L FREE +4 init to point just past program 

* end start end of program 
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As you can see, the longword FREE must be the last declared variable * in the 
program. It comes right before the 'END' statement. * After SK*DOS loads the 
program, the first free byte of memory will be * directly after the variable FREE. 
And FREE will be pointing to it! 

* FIND FIRST FREE BYTE 

* To call 

* no arguments needed 

* Exit 

* A4 = first available byte of free memory 



Get_Mem 

move.l FREE(pc),A4 get value from FREE. • • 

rts .... and return 

* trivial, I know, but by placing it in a 

* subroutine I can add features later. 

********************************************* 
* 

* Reserve memory 

* To call. . . 

* A4 s how many bytes to reserve 

* Exit... 

* A4 = First free byte past reserved block 

* Z flag sO s Memory overflow 



Res_Mem 

move.l A1,-(A7) save Al 

move.l FREE(pc),Al get Free pointer 

add.l A1,A4 add offset 

cmp.l MEMEND ( A6 ) , A4 see if there is enough memory 
bge.s Mfull 

lea.l FREE(pc),Al point too FREE pointer 
move.l A4, (Al) save the new value 

move.l (A7) + ,A1 restore Al 

rts 

* What to do if we run out of memory 

Mfull andi #11111101, CCR clear Z bit in CC reg. 
rts 

********************************************* 
* 

* SET MEMORY ROUTINE 
* 

* to call ... 

* A4 = end of block +1 of a block of memory to reserve 

* Exit ... 

* Z flag =0 s Memory overflow 

* nothing changed 



Set_Mem 

move.l A1,-(A7) save Al 

cmp.l MEMEND (A6 ) ,A4 see if there is enough memory 

bge.s Mfull 

lea.l FREE(pc),Al point too FREE pointer 

move.l A4, (Al) save the new value 
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move.l (A7) + ,A1 restore Al 

rts 

* What to do if we run out of memory 

Mfull andi #11111101 ,CCR clear Z bit in CC reg. 
rts 

********************************************** 
* 

* MEMORY INPUT ROUTINE 

* To call . . . ♦ . 

* A4 « Buffer pointer (auto inc) 

* D5 sb char to place in buffer 

* Exit ... 

* A4 s= next Byte of memory 

* Z flag fcO 8« Memory overflow 

* Note: 

*This routine doesn't use the variable FREE. But A4 can be set 
♦with a call to Get_Mem. After all the data has been placed into 
♦memory, a call to Set_Mem will protect it. 
*•--.--.--«--.-.«». 

Put_Mem cmp.l MEMEND(A6) , A4 see if there is room in memory 
bge.s Mfull 

move.b D5,(A4)+ place char in memory 

rts return 

* What to do if we run out of memory 

Mfull andi #11111101, CCR clear Z bit in CC reg. 
rts 

SK*DOS Update 

by Peter A. Stark 

The following change to SK*DOS will only be of interest to advanced 
programmers, and I am including it here only in the interest of completeness. 

We have recently updated SK*DOS to version 3.2 by the addition of two new 
variables called DATBEG and MEMBEG. Both of these were put in at the 
request of Dr. Jack Crenshaw, who is writing a linker/loader called JINK for use 
with SK*DOS. 

Both variables can be accessed from programs by using the A6 register (which 
normally returns to user programs, pointing to the user data area of SK*DOS) 
as follows: 

DATBEG is 5 100(A6); in most versions of SK*DOS, this translates to $27EC. 
MEMBEG is 5 104(A6); in most versions of SK*DOS, this translates to $27F0. 
The names DATBEG and MEMBEG are both being added to the SKEQU- 
ATE.TXTfile. 

Both of these variables are generally uninitialized, and are ignored by 
SK*DOS except when loading a binary file from a disk into memory. The 
SK*DOS binary file format now has two new load codes, which specifically 
refer to these two locations: 

The load code $30 takes the next long word in the binary file, adds to it the 
current value of OFFSET, and puts the resulting 32-bit sum into DATBEG. 
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The load code $31 does exactly the same thing, but puts its sum into 
MEMBEG. 

In both cases, SK*DOS does not do any checking on the results. That is, it 
does not check for overflow, for an even or odd number, or even that the result 
is greater than OFFSET or smaller than MEMEND. 

Jack expects to use these two new variables to keep track of the memory 
available to load modules. 

The Star-K BBS System 

Some of you may not be aware that you can talk to other SK*DOS users via 
the Star-K BBS. There are also files to download, such as user-contributed files, 
or copies of all previous issues of 68 News. 

The telephone number is (914) 241-3307, and the protocol is 300, 1200, or 
2400 baud, 8 bits, no parity. You may access the BBS with your SK*DOS 
system, using a communications program such as CMODEM or EZMODEM; 
via a modem connected to a terminal, or even (heaven forbid!) with a PC or 
clone. 

I hate to admit it, but the BBS itself runs on an XT clone computer, running 
at 4.77 MHz with an 8088 processor. The system has a no-name 2400-baud 
modem, and a 10-megabyte hard drive. 

In a sense, the hard drive is a tribute to the efficiency of 68000 programming. 
10 megabytes is plenty of room for our programs, whereas 10 megabytes would 
be woefully inadequate if we were supporting IBM PC programs. In this case, 
small is beautiful! 
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